COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE FIX↔
C00004 ENDMK
C⊗;
αXDEFINE FIX⊗↔
	α.			⊗; Save original stuff in file
	αLαβ⊗↔R SPINDLα⊗↔	⊗; Set up first lines to subjob
	α3αLβ⊗F			⊗; Get filename lines on a separate page
	αXARGUMENT LINES.⊗↔αZFIX1⊗↔	⊗; Fix each filename line
	E⊗↔			⊗; Last line to subjob
	αLαF ⊗↓⊗↔α∞αβ\		⊗; Delete all spaces in filenames. This aborts FIX.
αβ⊗↓

αXDEFINE FIX1⊗↔
	βSβ⊗↔
	α6α .α3α [α3α β,α3α ]αK⊗↔⊗↔
αβ⊗↓

αXDEFINE SPIN⊗↔
	αXSILENT⊗↔αXSTOPONE⊗↔	⊗; Set up for FIX to abort
	αZFIX⊗↔
	α-αXSILENT⊗↔αXSTOPALL⊗↔
	αLα-αβDαL		⊗; Delete temporary pagemark
	αXSUBJOB⊗↔α8αXBOTSET⊗↔
	αXARGUMENT LINES.⊗↔αZSPIN1⊗↔	⊗; Send each line to the subjob
	αXCANCEL⊗↔		⊗; Restore the file's initial state
αβ⊗↓

αXDEFINE SPIN1⊗↔
	α-αXLRECEIVE⊗↔
	α=α+αXLRECEIVE⊗↔
	⊗↔αV
αβ⊗↓

αXDEFINE YES⊗↔			⊗; Sends a "Y" response to the
	α0α=Y⊗↔			⊗; question about bubbling
αβ⊗↓

αXDEFINE NO⊗↔			⊗; Sends an "N" response to the
	α0α=N⊗↔			⊗; question about bubbling
αβ⊗↓